Public Class Utiles

    Public Sub mensaje(ByVal men As String)
        MsgBox(men, MsgBoxStyle.Information, "Mensajes al Usuario")
    End Sub

    'Public Function devuelveFormatoFecha(ByVal fecha As String) As String
    '    Return CStr(CDate(fecha).ToString("dd/MM/yyyy HH:mm:ss"))
    'End Function

    Public Sub emitirSonido(ByVal numeroVeces As Integer)
        For i As Integer = 0 To numeroVeces
            Beep()
        Next
    End Sub

End Class
